home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1994 February
/
64er_Magazin_94-02_1994_Markt__Technik_de.d64
/
led-demo v2.0
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
35 lines
10 rem ********************************
20 rem * (c) 1993 by trainsoft *
30 rem * *
40 rem * (w) by sven stolzenberg *
50 rem * an der kaisermuehle 4 *
60 rem * 41747 viersen 1 *
70 rem ********************************
80 rem *********
90 rem * menue *
100 rem *********
110 poke53280,.:poke53281,3
120 print"[147][144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
130 print"[221][146] [221]";
140 print"[221][146] demo-programm zur steuerbaren led [221]";
150 print"[221][146] [221]";
160 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
170 input"einschaltzeitraum :";a
180 input"ausschaltzeitraum :";b
190 print" erneute eingabe nach druecken der"
200 print" space-taste !"
210 rem *******************************
220 rem *steuerung des prozessor-ports*
230 rem *******************************
240 poke .,peek(.) and not 16
250 poke .,peek(.) or 16
260 for i=. to a:next
270 poke 192,1:poke 1,peek(1) or 32
280 for j=. to b:next
290 poke 1,peek(1) and 39:poke 192,.
300 rem *******************
310 rem * tastaturabfrage *
320 rem *******************
330 get a$:if a$="" then 260
340 if a$=chr$(32) then 110